home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64 / neues input (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.1 KB  |  38 lines
  1. 10 rem ***************************
  2. 12 rem"*                         *
  3. 14 [143]"*     (NULL)illi peekurmeister    *
  4. 16 rem"*                         *
  5. 18 [143]"*     left$olzkrugweg 30      *
  6. 22 rem"*     2390 [198]lensburg      *
  7. 24 [143]"*                         *
  8. 26 rem"*     [212]el.: 0461/92164    *
  9. 28 [143]"*                         *
  10. 30 rem"*         [194]asic -         *
  11. 32 [143]"*     valingaberoutine      *
  12. 34 rem"*                         *
  13. 36 [143]"***************************
  14. 40 goto 1000
  15. 50 rem ***************************
  16. 60 rem *    begin der routine    *
  17. 70 rem ***************************
  18. 100 print in$; : zt=ti : zc=4 : if (lt<1) then lt=1
  19. 110 get z$ : if z$<>"" then 140
  20. 120 if (zt<=ti) then print mid$(" [145] [146]",zc,3);"[157]"; : zc=5-zc : zt=ti+25
  21. 130 goto 110
  22. 140 z=asc(z$) : zl=len(in$)
  23. 150 if (zl<lt) and ((z and 127)>31) then in$=in$+z$ : print z$; : poke 212,0 : goto 110
  24. 160 print" [157]";
  25. 170 if (z=13) and (zl>0) then return
  26. 180 if (z=20) and (zl>0) then in$=left$(in$,zl-1) : print "[157]"; : goto110
  27. 190 if (z=141) and (zl>0) then for z=1 to zl : print "[157] [157]"; : next : in$=""
  28. 200 goto 110
  29. 210 rem ***************************
  30. 220 rem *    ende der routine     *
  31. 230 rem ***************************
  32. 1000 print"[147]"
  33. 1010 print"[194]asic-[197]ingaberoutine [194]eispiel"
  34. 1020 print : print
  35. 1030 in$="[214]orbesetzung" : lt=15
  36. 1040 gosub 100
  37. 1050 print "" : print in$
  38.